home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / editors / me_cd / nextfile.mut < prev    next >
Encoding:
Text File  |  1988-09-07  |  462 b   |  25 lines
  1.   ;; files.mut: sequencally load the files specified on the command line
  2.   ;; If ^U used, tries to load that many files.
  3.  
  4. (int nth-file)        ; file to load next
  5.  
  6. (defun
  7.   next-file
  8.   {
  9.     (int n)
  10.  
  11.     (n (arg-prefix))
  12.     (while (>= (-= n 1) 0)
  13.       (if (< nth-file (argc))
  14.     {
  15.       (visit-file (argv nth-file))
  16.       (delete-other-windows)
  17.       (+= nth-file 1)
  18.     }
  19.     { (msg "All files read in.")(done) }
  20.       )
  21.     )
  22.   }
  23.   MAIN { (nth-file 1) }
  24. )
  25.